projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6aa8baa
)
* lisp/emacs-lisp/find-func.el (find-function-advised-original): Simplify
author
Stefan Monnier
<monnier@iro.umontreal.ca>
Sun, 12 Jun 2022 03:50:35 +0000
(23:50 -0400)
committer
Stefan Monnier
<monnier@iro.umontreal.ca>
Sun, 12 Jun 2022 03:50:35 +0000
(23:50 -0400)
lisp/emacs-lisp/find-func.el
patch
|
blob
|
history
diff --git
a/lisp/emacs-lisp/find-func.el
b/lisp/emacs-lisp/find-func.el
index 2dec51dd044371cf8843e75aec77fa3e8f478602..ac84b50b5fcfd45709266b9fda8ac588a986a9b2 100644
(file)
--- a/
lisp/emacs-lisp/find-func.el
+++ b/
lisp/emacs-lisp/find-func.el
@@
-269,11
+269,7
@@
defined in C.")
If FUNC is not a symbol, return it. Else, if it's not advised,
return the symbol's function definition."
(or (and (symbolp func)
- (featurep 'nadvice)
- (let ((ofunc (symbol-function func)))
- (if (advice--p ofunc)
- (advice--cd*r ofunc)
- ofunc)))
+ (advice--cd*r (symbol-function func)))
func))
(defun find-function-C-source (fun-or-var file type)